home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 February
/
EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso
/
earcd
/
library
/
reqtlsdv.lha
/
ReqTools
/
Glue
/
PCQ
/
pcq_glue.lha
/
Utility.i
< prev
Wrap
Text File
|
1992-09-12
|
1KB
|
48 lines
{
Utility.i for PCQ Pascal
This is the Utility.i file for ReqTools.i (PCQ Pascal.) As far as I
gather the HSPascal implementation uses only the types and consts from
here, and I happen to be under 1.3, so I left out the functions. When
Patrick Quaid completes his 2.0 includes for PCQ, his Utility.i file
should be compatible with this (I _hope_ ;-)
Translated from HSPascal to PCQ Pascal Sept 12 1992 by Chris Pressey
}
{$I "Include:Exec/Exec.i"}
Type
Hook = Record
h_MinNode : MinNode;
h_Entry : ^Integer;
h_SubEntry : ^Integer;
h_Data : Address;
End;
HookPtr = ^Hook;
Tag = Integer;
TagItem = Record
ti_Tag : Tag;
ti_Data : Integer;
End;
TagItemPtr = ^TagItem;
Const
TAG_DONE = 0;
TAG_END = 0;
TAG_IGNORE = 1;
TAG_MORE = 2;
TAG_SKIP = 3;
TAG_USER = $80000000;
TAGFILTER_AND = 0;
TAGFILTER_NOT = 1;
Var
UtilityBase : LibraryPtr;